home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / 4dtnt.zip / DO.BTM < prev    next >
Text File  |  1991-10-09  |  3KB  |  130 lines
  1. @ECHO off 
  2. if k%1 == k quit
  3. goto %1
  4. quit
  5. :buscor
  6. to business
  7. set dr=%@substr[%_cwd,0,2]
  8. fr
  9. rsav 94
  10. ks 0 17 "c"
  11. if not exist %dr%\business\%2 ks 0 27 "b"
  12. ws %dr%\business\%2
  13. rset
  14. cls
  15. unset dr
  16. quit
  17. rem
  18. :letter
  19. to tackett
  20. set dr=%@substr[%_cwd,0,2]
  21. fr
  22. rsav 94
  23. ks 0 17 "c"
  24. if not exist %dr%\tackett\%2 ks 0 27 "p"
  25. ws %dr%\tackett\%2
  26. rset 
  27. cls
  28. unset dr
  29. quit
  30. rem
  31. :homemo
  32. set memoname=%@substr[%_date,0,2]%@substr[%_date,3,2]%@substr[%_date,6,2]
  33. iff exist %ramd%%memoname% then
  34.   ks 0 27 "a" 17 "c"
  35.     else
  36.   ks 0 27 "a" 27 "@"
  37. endiff
  38. rsav 94
  39. ws %ramd%%memoname%
  40. rset
  41. cls
  42. unset memoname
  43. quit
  44. rem
  45. :packbas
  46. :packcob
  47. if .%2 == . quit
  48. to vsource
  49. set dr=%@substr[%_cwd,0,2]
  50. fr
  51. to hobuff
  52. set drh=%@substr[%_cwd,0,2]
  53. fr
  54. set fname=%@name[%2]
  55. if not exist %drh%\hobuff\%fname%.asc quit
  56. erase %dr%\vsource\%fname%.%@substr[%1,4,3]
  57. leftn 6 %drh%\hobuff\%fname%.asc %dr%\vsource\%fname%.%@substr[%1,4] 
  58. goto packup
  59. :packasm
  60. :packpro
  61. :packc
  62. to vsource
  63. set dr=%@substr[%_cwd,0,2]
  64. fr
  65. to hobuff
  66. set drh=%@substr[%_cwd,0,2]
  67. fr
  68. if .%2 == . quit
  69. set fname=%@name[%2]
  70. if not exist %drh%\hobuff\%fname%.asc quit
  71. erase %dr%\vsource\%fname%.%@substr[%1,4,3]
  72. squoze 72 %drh%\hobuff\%fname%.asc %dr%\vsource\%fname%.%@substr[%1,4] 
  73. :packup
  74. if not exist %dr%\vsource\%fname%.%@substr[%1,4] quit
  75. if not %@filesize[%dr%\vsource\%fname%.%@substr[%1,4,3],B] gt 0 quit
  76. erase %drh%\hobuff\%fname%.asc
  77. unset fname
  78. quit
  79. :vsedit
  80. to vsource
  81. set dr=%@substr[%_cwd,0,2]
  82. fr
  83. to hobuff
  84. set drh=%@substr[%_cwd,0,2]
  85. fr
  86. if .%2 == . quit
  87. unset ext >& nul
  88. set ext=%@lower[%@ext[%2]]
  89. set fname=%@name[%2]
  90. if .%ext% ne . goto chkext
  91. if not exist %dr%\vsource\%fname%.* goto chkext
  92. set tabch="c"
  93. set ext=bas
  94. if exist %dr%\vsource\%fname%.bas goto doedit
  95. set ext=cob
  96. if exist %dr%\vsource\%fname%.cob goto doedit
  97. set tabch="a"
  98. set ext=asm
  99. if exist %dr%\vsource\%fname%.asm goto doedit
  100. set ext=pro
  101. if exist %dr%\vsource\%fname%.pro goto doedit
  102. set ext=c
  103. if exist %dr%\vsource\%fname%.c   goto doedit
  104. unset ext
  105. :chkext
  106. set tabch="a"
  107. if .%ext% == .asm .or. .%ext% == .pro .or. .%ext% == .c goto doedit
  108. set tabch="c"
  109. if .%ext% == .cob .or. .%ext% == .bas goto doedit
  110. input Enter extension BAS, ASM, PRO, COB, or C %%ext
  111. if .%ext% ne . set ext=%@lower[%ext%]
  112. goto chkext
  113. :doedit
  114. if exist %dr%\vsource\%fname%.%ext% copy %dr%\vsource\%fname%.%ext% %ramd%
  115. if .%ext% ne .pro toggle C >& NUL
  116. rsav 60
  117. ks 0 27 %tabch%
  118. ws %ramd%%fname%.%ext%
  119. if not exist %ramd%%fname%.%ext% quit
  120. filter9 < %ramd%%fname%.%ext% > %dr%\vsource\%fname%.%ext%
  121. erase %drh%\hobuff\%fname >& NUL
  122. if %tabch% == "c" rightn 6 %dr%\vsource\%fname%.%ext% %drh%\hobuff\%fname
  123. if %tabch% == "a" filter9 < %ramd%%fname%.%ext% > %drh%\hobuff\%fname%
  124. erase %ramd%%fname%.%ext% >& NUL
  125. unset fname ext tabch dr drh
  126. rset 
  127. toggle c >& NUL
  128. cls
  129. quit
  130.